home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / win9keys / main.bas next >
BASIC Source File  |  1999-08-30  |  432b  |  12 lines
  1. Attribute VB_Name = "Module1"
  2. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
  3. Private Const SPI_SCREENSAVERRUNNING = 97&
  4.  
  5. Public Sub DisableKeys(dKeys As Boolean)
  6. Dim lReturn As Long
  7. Dim bPre As Boolean
  8. lReturn = SystemParametersInfo(SPI_SCREENSAVERRUNNING, dKeys, bPre, 0&)
  9.  
  10. End Sub
  11.  
  12.